home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / tokyo / e / boxing.dcr / 00002_kid script.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  2.2 KB  |  89 lines
  1. property snum, cnum, acount, dcount
  2. global kidobj, naobj
  3.  
  4. on birth me, lh, lv, spnum
  5.   set snum to spnum
  6.   set cnum to the number of cast "kid_de.loop"
  7.   set the puppet of sprite snum to 1
  8.   set the type of sprite snum to 1
  9.   set the castNum of sprite snum to cnum
  10.   set the ink of sprite snum to 36
  11.   set the foreColor of sprite snum to 255
  12.   set the backColor of sprite snum to 0
  13.   set the locH of sprite snum to lh
  14.   set the locV of sprite snum to lv
  15.   set acount to 0
  16.   set dcount to 0
  17.   return me
  18. end
  19.  
  20. on kidmove me
  21.   set acount to acount - 1
  22.   if acount = 8 then
  23.     puppetSound(3, the number of cast "p_hit")
  24.   else
  25.     if acount <= 0 then
  26.       if dcount = 9 then
  27.         set cnum to the number of cast "kid_down"
  28.         puppetSound("booing")
  29.         set dcount to 10
  30.         showscore()
  31.       else
  32.         set cnum to the number of cast "kid_de.loop"
  33.       end if
  34.       set the castNum of sprite snum to cnum
  35.     end if
  36.   end if
  37. end
  38.  
  39. on kidguard me
  40.   if (acount > 0) or (dcount >= 9) then
  41.     exit
  42.   end if
  43.   set cnum to the number of cast "kid_gu"
  44.   set the castNum of sprite snum to cnum
  45.   updateStage()
  46.   set acount to 4
  47. end
  48.  
  49. on kidpunchr me
  50.   if (acount > 0) or (dcount >= 9) then
  51.     exit
  52.   end if
  53.   set cnum to the number of cast "kid_PR"
  54.   set the castNum of sprite snum to cnum
  55.   if (the cnum of naobj = the number of cast "na_de.loop") or (the cnum of naobj = the number of cast "na_PR") then
  56.     nadamage(naobj)
  57.     set acount to 10
  58.   else
  59.     set acount to 4
  60.   end if
  61.   puppetSound(3, the number of cast "p_play")
  62.   updateStage()
  63. end
  64.  
  65. on kidpunchl me
  66.   if (acount > 0) or (dcount >= 9) then
  67.     exit
  68.   end if
  69.   set cnum to the number of cast "kid_PL"
  70.   set the castNum of sprite snum to cnum
  71.   if (the cnum of naobj = the number of cast "na_de.loop") or (the cnum of naobj = the number of cast "na_PL") then
  72.     nadamage(naobj)
  73.     set acount to 10
  74.   else
  75.     set acount to 4
  76.   end if
  77.   puppetSound(3, the number of cast "p_play")
  78.   updateStage()
  79. end
  80.  
  81. on kiddamage me
  82.   set cnum to the number of cast "kid_da"
  83.   set acount to 6
  84.   set the castNum of sprite snum to cnum
  85.   set dcount to dcount + 1
  86.   set the puppet of sprite (dcount + 20) to 1
  87.   set the blend of sprite (dcount + 20) to 30
  88. end
  89.